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iss-32 V4.0-74 
T.SRCJCHMSAVTXT.BLI; 


ZTITLE "EDTSCHMSAVTXT = save deleted text’ 
MODULE EDTSCHMSAVTXT ( ! Save deleted text 
oe = 'v04-000' ! File: CHMSAVTXT.BLI Edit: JBS1003 
= 


BEGIN 


i 
PESESELLLILSI TITIES ETE TET TT Tee Terre cece etter itis iti tists iii iiiiiiiny 
'@ 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
® 
® 
4 ft 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
i INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
we 
ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. ‘ 
*® 
® 
® 
® 
® 
® 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


'@ 
SRR RRA RAERAAAAA AAA AE EEA AERE EEA AAA AAA ARATE 
' 


+e 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 


This module saves text deleted by a delete Line or word 
command in the associated undelete buffer. 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: Unknown 
MODIFIED BY: 


1-001 = Original. DJS 04-Feb-1981. This module was created b 
Satrecy ing the routine EDTSS$SAV_DELTXT from module CHANGE.BLI. 

! 1-002 - Regularize headers. JBS 03-Mar-1981 

1-003 - Improve the appearance of the Listing. JBS 13-Jun-1983 
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EDTSCHMSAVTXT EDTSCHMSAVTXT = save deleted text 16-Sep-1984 210: Ax-1 - -0- 
vith Declarations % 12 398 198 99:39:22 ANT SRedCHASAGTHT or caf att (28 


SSBTTL ‘Declarations’ 
; TABLE OF CONTENTS: 


EXTERNAL REFERENCES: 
In the routine 


$ 1 

3 1 

$ 1 

|. < oes 

3 ; 28 : REQUIRE ‘EDTSRC: TRAROUNAM'; 
; 59 983 1 FORWARD ROUTINE 

3 o9 9h 4 } EDTSSSAV_DELTXT : NOVALUE; ! Save a deleted word or Line in an undelete buffer 
3 ? 44 : 

| z 030) 

; 665 288 1 

; 666 05 1 REQUIRE "EDTSRC:EDTREQ'; 
3 67 0638 1 

3 68 0639 1! 

} 69 0640 1 ! MACROS: 

3 70 0641 1! 

3 71 Berg 1! NONE 

H 7 064 1! 

; 7 0644 1 ! EQUATED SYMBOLS: 

: 74 0645 1! 

3 75 0646 1! NONE 

3 76 0647 1! 

; 77 0648 1 ! OWN STORAGE: 

; 78 0649 1! 

: 79 0650 ! } NONE 

5 06 1 2 

$ 1! 

- 1! 


| 
| 
| 
| 
| 
i INCLUDE FILES: 
| 
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core HMSAVTXT CHMSAVTXT = save deleted text Jon~gen- 138? 90: 19:3¢ AX-11 Bliss-32 V4.0-742 
v04- SSAV_DELTXT = save deleted text 14-Sep-1984 12:22:44 EDT. SRCICHMSAVTXT.BLI;1 
1 ZSBTTL “EDTSSSAV_DELTXT = save deleted text’ 


wn, ROUTINE EDTSSSAV_DELTXT ( Save deleted text 


oon 
OoOooooo mm 
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' 
° ! Number of characters to save 
DEL_BUF, ! Address of delete buffer 
BUF _LEN ! Place to store the length 
) : NOVALUE = 


!o+ 


i FUNCTIONAL DESCRIPTION: 


APAACOCOMMUIUIIIA —1—4 
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Save the text deleted by a delete Line or word command in the 
er. 


; 

; 86 1 

3; § 1 

a 1 

; F 1 

; 90 1 

. 1 

; F 1 

; #9 1 

: 9 1 

3; 1! 

; © 1! 

; wT 67 1! associated undelete buf 

; 0668 1 ! 

; 99 0669 1 ! FORMAL PARAMETERS: 

: 100 0670 1! 

s Ht bert : } NC the number of characters to save 

3 108 0675 1! ODEL_BUF the address of the delete buffer 

: 104 0674 1! 

s 105 0675 1! DEL_LEN the address in which to save the length 
: 106 0676 1! 

; 107 0677 1 ! IMPLICIT INPUTS: 

: 108 0678 1! 

3; 109 0679 1! EDTS$$G_DIR 

; 110 0680 1! EDTSSA_LN_PTR 

ae bb 0681 1! 

3 Wg 0682 1 ! IMPLICIT OUTPUTS: 

3; 11 0683 1! 

; 116 0684 1! NONE 

. 7s 0685 1! 

3; 1% 0686 1 ! ROUTINE VALUE: 

s VW 0687 1! 

; «(118 0688 1! NONE 

3 6119 0689 1! 

: 120 0690 1 ! SIDE EFFECTS: 

. te 0691 1! 

3 \s¢ 0692 1! NONE » 

3 Ye 0695 1! : 

: 124 0694 1 !-- 

; 125 0695 1 

s 12 0696 BEGIN 

: 127 0697 

s te 69 EXTERNAL ROUTINE 

; 34 69 EDTSSCS_LEFT ! Move left a character 
3 130 thie ; EDTS$$CS-RIGHT; ! Move right a character 
; 136 44 EXTERNAL 4 : 
; % 070 § EDTS$$G_DIR ! The current direction. 
3 13 th EDTS$A_LN_PTR; ! Current character pointer 
3 «136 0706 LOCAL 

3 137 378 BUF _POINT; 

; 138 708 

3 «139 0709 '¢ ; 

: 140 0710 ! Put the direction in the first char of the buffer. 

3; «6141 0711 = 
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EDTSCHMSAVTXT 
v04-000 AV_DELTXT 


PAAAAAIMNNNI SE BEES EE OO 


o 
MEW O OONAUEWN “OOONOUF wr 


3S S23:S.:5S aon - 


ek a hd 
VFWN—O0OOon 


=NNNINVWNINININININWIWwn 


SNNNN 
o 


MSAVTXT = save deleted text 
= save deleted text 


BUF _POINT = CHSPTR (.DEL_BUF); 
CHSQCHAR_A (.EDTS$G_DIR, BUF _POINT); 


“9332 


3: 


2 AX-11 Bliss-32 VO .0=742 


i 
4 EDT. SRCJCHMSAVTXT.BLI; 


4 
If it is a forward delete, then go back to the beginning. 


IF (.EDT$$G_DIR NEQ@ DIR_BACKWARD) 
THEN 


DECR I FROM .NC = 1 T0 0 DO 
EDTSSCS_LEFT (); 


'¢ 
Save the text, ending up at the end. 


INCR I FROM 1 TO .NC DO 
BEGIN 


IF (.1 LEQ .BUF_LEN) THEN CHSWCHAR_A (CHSRCHAR (.EDTSSA_LN_PTR), BUF _POINT); 


EDTSSCS_RIGHT (); 
END; 


IF (.EDT$$G_DIR EQL DIR_BACKWARD) 
THEN 


DECR 1 FROM .NC - 1 TO 0 DO 
EDTSSCS_LEFT (); 


END; 
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°¢ 
If is is a backward delete, move back to the beginning. 


- TITLE 
- IDENT 


-EXTRN 
-EXTRN 


ALLS 
SOBGEQ 


! of routine EDTSSSAV_DELTXT 


EDTSCHMSAVTXT EDTSCHMSAVTXT = save deleted text 
\V04-000\ 


EDTSS$CS_LEFT, EDTS$S$CS_RIGHT 
EDTS$$G_BIR, EDTS$A_LN~PTR 


EDTSCODE,NOWRT, SHR, PIC,2 

DISSSAV_DELTXT, Save R2,R3,R4,R5 
G R5 

EL BUF, BUF POINT 


DTS$G_OIR 
, (BOF_POINT)+ 


- 


I 
» ,gOTSSCS_LEFT 
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¢ 10 
EDTSCHMSAVTXT EDTSCHMSAVTXT = save deleted text 16-Sep-1984 00:19:28 AX-11 Oh ieee V4.0-742 
v04-000 EDTSSSAV_DELTXT = save deleted text 14-Sep-1984 12:22:44 EDT. SRCICHMSAVTXT.BLI;1 
36 D4 A 3%: CLRL I 
17 (11 C BRB 6$ 
Oc AC 2 01 : 4$: CMPL 1 BUF _LEN 
A 14 BGTR § 
000000006 p 4 MOVL  EDTSS$A ALN PTR 
6 B MO (RO) wey Be intts 
000000006 F F 5$ CALLS #0, EDT$$CS_RIGHT 
4 04 at F 45 6$ AOBLEQ {. 4 
6 D 4A TSTL pbts 6. SIR 
¢ 1 4¢ NEQ $ 
52 04 A p i MOVL a I 
64 p FB 7$: CALLS , EDTSSCS_LEFT 
FA 4 0 7 gs: SOBGE ot 
04 0005A 9$: RET 


; Routine Size: 91 bytes, Routine Base: _EDTSCODE + 0000 


0747 1 
0748 1 !<BLF/PAGE> 


Size: 91 


Elapsed tees 
Lines/CPU Min: 
meet Ae ie 11344 
ry Used: 71 pages 
a ation Complete 


+ 0 data bytes 
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SAVTXT EDTSCHMSAVTXT = save deleted text 16-Sep-19 :10: AX-11 Bliss-32 V4.0-74 Page 6. 
R600 EDTSSSAV_DELTXT = save deleted text 14- ety 7 99:39:22 teDT. SRCICHMSAVTXT.BLI; ’ (4) 
: 180 as 1 END ! of module EDTSCHMSAVTXT 
: 182 ray 0 ELUDOM 

| 

: PSECT SUMMARY | 
Z Name Bytes Attributes 
: _EDTSCODE 91 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
; jaemaee SYERSLG sceenece Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28: 1 .SRCJEDT 32:1 377 2 0 40 00:00.2 
3; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
FH COMMAND QUALIFIERS 
; RO or a earn eee a MSRC$: CHMSAVTXT.BLI/UPDATE=(ENHS$:C 


a 


DIGITAL EQUIPMENT CORPORATION: 
CONFID 


ENTIAL -AND PROPRIETARY 


